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greeting: V 's' 'm' T 'p' ' ' role ' ' DOMAIN '\n'; 
role: V I 'r'; 

envelope: ' i ' ' \n ' I ' i ' ADDRESS ' ' numb ' ' notify ' \n ' ' m ' NON_NL ' \n ' 

optext " s ' ADDRESS ' \n ' rcpts ' \n ' ; 
notify: 'n' I 'z' I 'b' I 'c'; 
optext : I LETTER NON_NL '\n' optext; 
rcpts: T ADDRESS ' \n ' I 'f ADDRESS 'Vn' rcpts; 



envstatus: optextrepl rcpstats sendstatus ' \n '; 

optextrepl: I optext ' \n ' ; 

rcpstats: rcpstat ' \n ' I rcpstat ' \n ' rcpstats ; 

rcpstat: msgstat I rcpreject NON_NL ; 

rcpreject: ' n ' I ' f ' ; 



sendstatus: ' Y ' I ' R ' numb ' ' NONJML I sendreject NON NL ; 
sendreject: ' N 1 I 'F'; 



message: fragment I fragment message ; 
fragment: numb ' \n ' ANYBYTES ' . ' ; 
msgstatus: msgstat ' \n ' ; 
msgstat: 'y' I 1 r' numb ' ' NON_NL ; 
numb: digit I digit numb ; 

digit: ' 0' \ "\ ' \ '2' \ ' 3* \ ' 4' \ ' 5' \ ' 6' \ '7 ' \ ' 8* \ ' 9' ; 
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T3: Read Rgreeting (1st time 
only); Read PM's msgstatus, if any 

(may wait here) ^nomore 



more 



msgs 



, 110 / 



T4: Read envstatus; 
Drop responsibility for PM if 
accepted I refused (may wait 
here & reply with msg.) 



go 



T5: Send message 



R4: Read envelope; 
Process (slow); Send 



end of 



envstatus if not end of session 
no x (concurrency possible) (may J session 



go 



wait here & reply) 



go 



R5: Read message: 
File msg. (slow); Note CM 
as "in transit"; Share responsibility 
for CM; Discard memory of PM as^ 
"in transit"; CM becomes PM. 
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